"0","```r

# examine the two endpoints
scpd1.oc <- octav(scpdSM[1,])
scpd14.oc <- octav(scpdSM[14,])
scpd1.oc
scpd14.oc

par(mfrow=c(4,4), mar=c(3,3,2,0)+0.1)
for (i in 1:nrow(scpdSM)){
  plot(rad(scpdSM[i,]), prop=F, xlab=\"\", ylab=\"\", xlim=c(1, 13), type=\"b\", pch=16)
  mtext(side=2, line=2, \"Number of Indiv\", cex=0.5)
  mtext(side=3, line=0.5, paste0(\"Time=\", ages[i]), cex=0.75)
  mtext(side=1, line=2, \"Rank\", cex=0.5)
}
```"
